From: Dave Love <fx@gnu.org>
Date: Thu, 5 Dec 2002 16:55:25 +0000 (+0000)
Subject: Update safe-chars of mule-utf-8,
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~29374
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=37d0ebd7c04094d82c5390124e704266de418405;p=emacs.git

Update safe-chars of mule-utf-8,
mule-utf-16-le, mule-utf-16-be.
---

diff --git a/lisp/international/utf-8-subst.el b/lisp/international/utf-8-subst.el
index 6049e6a09fb..8e5b4affe8c 100644
--- a/lisp/international/utf-8-subst.el
+++ b/lisp/international/utf-8-subst.el
@@ -20144,5 +20144,13 @@
    (#x9F9D ?龝)
    (#x9FA0 ?龠))) 
 
+(let ((tab (make-char-table 'translation-table)))
+  (maphash (lambda (k v)
+	     (aset tab k v))
+	   ucs-mule-cjk-to-unicode)
+  (register-char-codings 'mule-utf-8 tab)
+  (register-char-codings 'mule-utf-16-be tab)
+  (register-char-codings 'mule-utf-16-le tab))
+
 (provide 'utf-8-subst)
 ;;; utf-8-subst.el ends here